VERSION 5.00
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmLogin 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "c"
   ClientHeight    =   2625
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4320
   Icon            =   "FrmLogin.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2625
   ScaleWidth      =   4320
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtstatus 
      Height          =   285
      Left            =   120
      TabIndex        =   7
      Top             =   2880
      Width           =   1095
   End
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
      Height          =   2655
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   4335
      _ExtentX        =   7646
      _ExtentY        =   4683
      BackColor1      =   0
      BackColor2      =   4210752
      Caption         =   "Login to Billing"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   8421504
      TitleColor2     =   0
      TitleGradient   =   2
      TitleHeight     =   350
      BorderColor     =   49152
      RoundAngle      =   0
      BorderWidth     =   2
      Begin VB.TextBox TxtPassword 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   250
         IMEMode         =   3  'DISABLE
         Left            =   1110
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   1365
         Width           =   2655
      End
      Begin VB.TextBox TxtUser 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   250
         Left            =   1110
         TabIndex        =   0
         Top             =   765
         Width           =   2655
      End
      Begin BLacKPeaRLOCX.ButtonNix CmdBatal 
         Height          =   375
         Left            =   2640
         TabIndex        =   3
         Top             =   1920
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "Batal"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmLogin.frx":B532
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.ButtonNix CmdLogin 
         Height          =   375
         Left            =   1080
         TabIndex        =   2
         Top             =   1920
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "Masuk"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmLogin.frx":B54E
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   350
         Left            =   1080
         Shape           =   4  'Rounded Rectangle
         Top             =   1320
         Width           =   2730
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   350
         Left            =   1080
         Shape           =   4  'Rounded Rectangle
         Top             =   720
         Width           =   2730
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Password"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   1320
         Width           =   1215
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama User"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   720
         Width           =   1215
      End
   End
End
Attribute VB_Name = "FrmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public nama_user As String
Public jenis_login As String
Public path As String
Public username As String
Private Sub CmdBatal_Click()
End
End Sub
Private Sub CmdLogin_Click()
If txtstatus.Text = "lock" Then
Call lockmain
Else
Call CekUser
Call login
End If
End Sub

Private Sub Form_Load()
StyleS
End Sub

Private Sub TxtPassword_GotFocus()
TxtPassword.Backcolor = &H0&
TxtPassword.Forecolor = vbWhite
End Sub

Private Sub TxtPassword_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call CmdLogin_Click
    End If
End Sub

Private Sub TxtPassword_LostFocus()
TxtPassword.Backcolor = &H404040
TxtPassword.Forecolor = &HC000&
End Sub

Private Sub txtuser_GotFocus()
TxtUser.Backcolor = &H0&
TxtUser.Forecolor = vbWhite
End Sub

Private Sub TxtUser_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call CekUser
    End If
End Sub
Private Sub CekUser()
On Error GoTo hell
    rec.Open "SELECT useraccount.* FROM useraccount WHERE useraccount.username = '" & TxtUser.Text & "'"
    If rec.RecordCount = 0 Then
        MsgBox "Nama user '" & TxtUser.Text & "' tidak diketahui.", vbInformation, "User Information"
        TxtUser.Text = ""
        TxtUser.SetFocus
    Else
    TxtPassword.SetFocus
    End If
        rec.Close
IfNoErr:
Exit Sub
hell:
If Err.Number = 3709 Then
On Error Resume Next
Else
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CekUser", Me.Name
 Resume IfNoErr
End If
End Sub
Private Sub login()
On Error GoTo hell
    rec.Open "SELECT useraccount.* FROM useraccount WHERE useraccount.username  = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 0 Then
        MsgBox "Nama user '" & TxtUser.Text & "' tidak diketahui.", vbInformation, "Gagal Login"
        TxtUser.Text = ""
        TxtPassword.Text = ""
        TxtUser.SetFocus
         rec.Close
    Else
        If TxtPassword.Text = DecryptText(rec(5), "password") Then
            username = rec(0)
            nama_user = rec(1)
            jenis_login = rec(2)
            path = "server"
            rec.Close
            Call TulisCache
            Load FrmMain
            FrmMain.Show
            Unload Me

            
        Else
            MsgBox "Maaf Password anda salah!", vbInformation, "Log In Failed"
            TxtPassword.Text = ""
            TxtPassword.SetFocus
             rec.Close
        End If
    End If
    
IfNoErr:
Exit Sub
hell:
If Err.Number = 3709 Then
On Error Resume Next
Else

 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "login", Me.Name
 Resume IfNoErr
End If
End Sub
Private Sub lockmain()
On Error GoTo hell
    rec.Open "SELECT useraccount.* FROM useraccount WHERE useraccount.username  = '" & FrmMain.usnm.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 0 Then
        MsgBox "Nama user '" & TxtUser.Text & "' tidak diketahui.", vbInformation, "Unlock Failed"
        TxtUser.Text = ""
        TxtPassword.Text = ""
        TxtUser.SetFocus
    Else
        If TxtPassword.Text = DecryptText(rec(5), "password") Then
        FrmMain.Enabled = True
        FrmMain.WindowState = 2
        Unload Me
        Else
            MsgBox "Maaf Password anda salah!", vbInformation, "Unlock Failed"
            TxtPassword.Text = ""
            TxtPassword.SetFocus
        End If
    End If
     rec.Close
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "lockmain", Me.Name
 Resume IfNoErr

End Sub

Private Sub TulisCache()
On Error GoTo hell
    rec.Open "SELECT log.* FROM log WHERE log.path = '" & path & "'", conn, adOpenStatic, adLockOptimistic
    If Not rec.RecordCount = 0 Then
        rec(1) = path
        rec(2) = username
        rec(3) = nama_user
        rec(4) = jenis_login
        rec.Update
    Else
        rec.AddNew
        rec(0) = 1
        rec(1) = path
        rec(2) = username
        rec(3) = nama_user
        rec(4) = jenis_login
        rec.Update
    End If
   rec.Close
IfNoErr:
Exit Sub
hell:
If Err.Number = 3709 Then
On Error Resume Next
Else

 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "TulisCache", Me.Name
 Resume IfNoErr
End If
End Sub

Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = FrmStyles.txtlButtonType.Text
        ctrl.ColorScheme = FrmStyles.txtlColorScheme.Text
        ctrl.Backcolor = FrmStyles.txtlBackcolor.Text
        ctrl.BackOver = FrmStyles.txtlBackOver.Text
        ctrl.Forecolor = FrmStyles.txtlForecolor.Text
        ctrl.ForeOver = FrmStyles.txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = FrmStyles.frameBackColor1.Text
         ctrl.BackColor2 = FrmStyles.frameBackColor2.Text
         ctrl.BorderColor = FrmStyles.frameBorderColor.Text
         ctrl.Forecolor = FrmStyles.frameForecolor.Text
         ctrl.TitleColor1 = FrmStyles.frameTitleColor1.Text
         ctrl.TitleColor2 = FrmStyles.frameTitleColor2.Text
         If FrmStyles.frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf FrmStyles.frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf FrmStyles.frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If FrmStyles.Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf FrmStyles.Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf FrmStyles.Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If

    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.TForecolor.Text
         ctrl.Backcolor = FrmStyles.TBackcolor.Text
         ctrl.BackColorMain = FrmStyles.TBackColorMain.Text
         ctrl.BorderColor = FrmStyles.TBorderColor.Text
         ctrl.FocusBackColor = FrmStyles.TFocusBackColor.Text
         ctrl.FocusBackMainColor = FrmStyles.TFocusBackMainColor.Text
         ctrl.FocusBorderColor = FrmStyles.TFocusBorderColor.Text
         ctrl.FocusForeColor = FrmStyles.TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.GDBackcolor.Text
         ctrl.BackColorBkg = FrmStyles.GDBackColorBkg.Text
         ctrl.BackColorSel = FrmStyles.GDBackColorSel.Text
         ctrl.BackColorFixed = FrmStyles.GDBackColorFixed.Text
         ctrl.ForeColorSel = FrmStyles.GDForeColorSel.Text
         ctrl.Forecolor = FrmStyles.GDForecolor.Text
         ctrl.ForeColorFixed = FrmStyles.GDForeColorFixed.Text
         ctrl.GridColor = FrmStyles.GDGridColor.Text
         ctrl.GridColorFixed = FrmStyles.GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lbltextfore.Text
         ctrl.Backcolor = FrmStyles.lbltextback.Text
    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.cboForeColor.Text
         ctrl.Backcolor = FrmStyles.cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.opForecolor.Text
         ctrl.Backcolor = FrmStyles.opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.LBackColor.Text
    End If
    Me.Backcolor = FrmStyles.WFore.Text
    End If
Next ctrl
End Sub

Private Sub txtuser_LostFocus()
TxtUser.Backcolor = &H404040
TxtUser.Forecolor = &HC000&
End Sub
